home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PWANK082.ZIP
/
NUKEREC.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-04-09
|
4KB
|
305 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
String STRING001
String STRING002
String STRING003
String TSTRING004(20)
String TSTRING005(20)
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
Int INT001
Int INT002
Int INT003
Int INT004
Int INT005
Int TINT006(20)
Int TINT007(20)
Int INT008
Int INT009
Int INT010
;------------------------------------------------------------------------------
INT004 = 1
Goto LABEL004
:LABEL001
DefColor
Print STRING008
INT008 = GetX()
INT009 = GetY()
For INT005 = 1 To INT002
TINT006(INT005) = GetX()
TINT007(INT005) = GetY()
Print TSTRING004(INT005)
If (INT001 == 1) Then
If (INT005 == INT002) Then
Print STRING010
Else
Print STRING009
Endif
Else
AnsiPos INT008, GetY() + 1
Endif
TSTRING005(INT005) = Left(Strip(StripAtx(TSTRING004(INT005)), " "), 1)
Next
INT003 = INT004
Gosub LABEL003
Print STRING006, StripAtx(TSTRING004(INT003))
:LABEL002
STRING007 = Inkey()
Select Case (STRING007)
Case Chr(13)
DefColor
Return
Case "RIGHT", "DOWN", "."
Gosub LABEL003
Print TSTRING004(INT003)
If (INT003 == INT002) Then
INT003 = 1
Else
Inc INT003
Endif
Gosub LABEL003
Print STRING006, StripAtx(TSTRING004(INT003))
Case "LEFT", "UP", ","
Gosub LABEL003
Print TSTRING004(INT003)
If (INT003 == 1) Then
INT003 = INT002
Else
Dec INT003
Endif
Gosub LABEL003
Print STRING006, StripAtx(TSTRING004(INT003))
Case "END"
Gosub LABEL003
Print TSTRING004(INT003)
INT003 = INT002
Gosub LABEL003
Print STRING006, StripAtx(TSTRING004(INT003))
Case "HOME"
Gosub LABEL003
Print TSTRING004(INT003)
INT003 = 1
Gosub LABEL003
Print STRING006, StripAtx(TSTRING004(INT003))
Case ""
For INT005 = 1 To INT002
If (Upper(STRING007) == Upper(TSTRING005(INT005))) Then
Gosub LABEL003
Print TSTRING004(INT003)
INT003 = INT005
Gosub LABEL003
Print STRING006, StripAtx(TSTRING004(INT003))
KbdStuff Chr(13)
Endif
Next
End Select
Goto LABEL002
:LABEL003
INT010 = GetX()
If (INT010 > TINT006(INT003)) Then
Backup INT010 - TINT006(INT003)
ElseIf (INT010 < TINT006(INT003)) Then
Forward TINT006(INT003) - INT010
Endif
Return
:LABEL004
DefColor
Cls
PrintLn "@X08Nuke Recommendation PPE v1.0 (C) BlackCat 1994"
:LABEL005
FreshLine
Newline
Print "@X07NukeRec CMD@X0C? "
Gosub LABEL009
Select Case (INT003)
Case 1
Gosub LABEL006
Case 2
Gosub LABEL010
Case 3
FreshLine
Newline
PrintLn "@X0CThanks for using NukeRec!"
End
End Select
Goto LABEL005
:LABEL006
DefColor
Cls
PrintLn "@X07Please enter the filenames of the files you want to recommend for"
PrintLn "nuking. Use wildcards to refer to more file. You can enter more than"
PrintLn "one filename at the prompt."
Newline
STRING011 = ""
InputStr "@X0FFilenames (enter aborts): _", STRING011, 7, 60, Mask_Pwd(), 8
FreshLine
If (STRING011 == "") Then
Return
Endif
Newline
PrintLn "@X07Please enter a comment indicating why you want these file(s)"
PrintLn "nuked/awarded or whatever"
STRING012 = ""
InputStr "@X0F>_", STRING012, 7, 60, Mask_Pwd(), 0
If (STRING012 == "") STRING012 = "NO COMMENT GIVEN"
If (Exist(PPEPath() + "nukerec.dat")) Goto LABEL007
FCreate 1, PPEPath() + "nukerec.dat", 1, 0
Goto LABEL008
:LABEL007
FAppend 1, PPEPath() + "nukerec.dat", 1, 0
:LABEL008
FPutLn 1, U_Name() + ", " + String(Date()) + " (" + String(Time()) + ")"
FPutLn 1, STRING011
FPutLn 1, STRING012
FClose 1
FreshLine
PrintLn "@X0CYour recommendation has been added!"
Return
:LABEL009
INT001 = 1
INT002 = 3
TSTRING004(1) = "@X07 Add "
TSTRING004(2) = "@X07 View "
TSTRING004(3) = "@X07 Quit "
STRING006 = "@X1F"
STRING008 = ""
STRING009 = ""
STRING010 = ""
Goto LABEL001
:LABEL010
DefColor
Cls
If (Exist(PPEPath() + "nukerec.dat")) Goto LABEL011
FreshLine
PrintLn "@X0CNo recommendations pending!"
Newline
Return
:LABEL011
StartDisp 2
FOpen 1, PPEPath() + "nukerec.dat", 0, 0
FreshLine
PrintLn "@X08****************************@X07*********************@X0F*************************"
While (1) Do
FGet 1, STRING001
FGet 1, STRING002
FGet 1, STRING003
If (Ferr(1)) Break
PrintLn "@X0C User: @X0F", STRING001
PrintLn "@X0CFile(s): @X07", STRING002
PrintLn "@X0CComment: @X09", STRING003
PrintLn "@X08****************************@X07*********************@X0F*************************"
If (Abort()) Then
ResetDisp
Break
Endif
EndWhile
FClose 1
StartDisp 1
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 3 Cls
; 45 Goto
; 30 Let
; 16 Print
; 14 PrintLn
; 25 If
; 1 FCreate
; 1 FOpen
; 1 FAppend
; 2 FClose
; 3 FGet
; 3 FPutLn
; 1 ResetDisp
; 2 StartDisp
; 5 DefColor
; 2 InputStr
; 14 Gosub
; 6 Return
; 1 Inc
; 1 Dec
; 5 Newline
; 1 KbdStuff
; 1 AnsiPos
; 1 Backup
; 1 Forward
; 6 FreshLine
;
;
; ■ Functions used :
;
; 13 +
; 2 -
; 19 ==
; 1 <>
; 3 <
; 2 <=
; 1 >
; 4 >=
; 23 !
; 4 &&
; 6 ||
; 2 Upper()
; 1 Left()
; 1 Ferr()
; 2 Chr()
; 1 Abort()
; 1 Date()
; 1 Time()
; 1 U_Name()
; 7 StripAtx()
; 1 Strip()
; 1 Inkey()
; 2 String()
; 2 Mask_Pwd()
; 5 PPEPath()
; 2 Exist()
; 3 GetX()
; 3 GetY()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 2 For/Next
; 1 While/EndWhile
; 9 If/Then or If/Then/Else
; 2 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------